CD Actual 9/CDACTUAL9.iso/share/Dos/VARIOS/pascal/DELPHI.SWG/0010_Recently Used Files List.pas

Pascal/Delphi Source File | 1996-02-21 | 5.9 KB | 248 lines

unit MRUFList;

(*    Implements a Recently-Used Files List     *)

(*  Constructed by Robert R. Marsh, S.J., 1995  *)
(* Use freely, distribute widely, charge nothing*)
(* If you like it you could always give some    *)
(* money to your favorite charity.              *)

(*  Comments, bug-reports, praise and blame to: *)
(*              [e-mail]                *)

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, Menus, IniFiles;

type
  TRecentFileEvent = procedure(Sender: TObject; LatestFile: string) of object;

type
  TRecentFiles = class(TComponent)
  private
    FMenu       : TMenuItem;
    Divider     : TMenuItem;
    FMaxFiles   : integer;
    FIniFileName: string;
    FLatestFile : string;
    FOnClick    : TRecentFileEvent;
    procedure SetLatestFile(value: string);
    procedure SetMenu(value: TMenuItem);
    procedure SetMaxFiles(value: integer);
    procedure MenuOnClick(Sender: TObject);
    function DividerPlace: integer;
  protected
    procedure Click(RecentFile: string);
  public
    constructor Create(AOwner: TComponent); override;
    procedure SaveToIniFile;
    procedure LoadFromIniFile;
    property LatestFile: string read FLatestFile write SetLatestFile;
  published
    property Menu       : TMenuItem read FMenu write SetMenu;
    property MaxFiles   : integer read FMaxFiles write SetMaxFiles;
    property IniFileName: string read FIniFileName write FIniFileName;
    property OnClick    : TRecentFileEvent read FOnClick write FOnClick;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Mine', [TRecentFiles]);
end;

{we frequently need to know both if the Divider}
{has been added and, if so, where it is}
function TRecentFiles.DividerPlace: integer;
begin
Result:=-1;
if FMenu <> nil then
  begin
  Result:=Menu.IndexOf(Divider);
  end;
end;

procedure TRecentFiles.SetMenu(value: TMenuItem);
begin
FMenu:=value;
end;

procedure TRecentFiles.SetMaxFiles(value: integer);
var
  n: integer;
begin
{the Max value of MaxFiles is 9}
if value <=9 then
  begin
  FMaxFiles:=value;
  end
else
  begin
  FMaxFiles:=9;
  end;
if (FMenu <> nil) and (DividerPlace <> -1) then
  begin
  {trim off any entries more MaxFiles}
  while Menu.Count > DividerPlace + FMaxFiles + 1 do
    begin
    Menu.Delete(Menu.Count-1);
    end;
  {if neccesary delete the divider too}
  if FMaxFiles = 0 then
    begin
    Menu.Delete(Menu.Count-1);
    end;
  end;
end;

procedure TRecentFiles.SetLatestFile(value: string);
var
  NewMenuItem: TMenuItem;
  n          : integer;
  Thiscaption: string;
  OldPlace   : integer;
  DividerPos : integer;
begin
FLatestFile:=value;
if (Menu <> nil) and (MaxFiles > 0) and
   (FLatestFile <> '') then
  begin
  {special case - the divider}
  if DividerPlace < 0 then
    begin
    Menu.Add(Divider);
    end;
  {is the new Name already there?}
  DividerPos:=DividerPlace;
  n:=DividerPos+1;
  while (n < Menu.Count) do
    begin
    if FLatestFile = Copy(Menu.Items[n].Caption,4,high(string)) then
      begin
      OldPlace:=n;
      Break;
      end
    else
      begin
      inc(n);
      end;
  end;
  if n >= Menu.Count then {we add}
    begin
    NewMenuItem:=TMenuItem.Create(Self);
    NewMenuItem.Caption:='&1 '+FLatestFile;
    {what happens if we click it}
    NewMenuItem.OnClick:=MenuOnClick;
    Menu.Insert(DividerPos+1,NewMenuItem);
    end
  else                 {we insert}
    begin
    NewMenuItem:=Menu.Items[OldPlace];
    Menu.Delete(OldPlace);
    Menu.Insert(DividerPos+1,NewMenuItem);
    end;
  {now change the 'hot' keys}
  for n:=DividerPos+1 to Menu.Count - 1 do
    begin
    ThisCaption:=Menu.Items[n].Caption;
    ThisCaption[2]:=Chr(n - DividerPos + Ord('1') -1);
    Menu.Items[n].Caption:=ThisCaption;
    end;
  {delete any excess items}
  if Menu.Count > DividerPos + MaxFiles + 1 then
    begin
    Menu.Delete(Menu.Count-1);
    end;
  end;
end;

procedure TRecentFiles.Click(RecentFile: string);
begin
if Assigned(FOnClick) then FOnClick(Self,RecentFile);
end;

procedure TRecentFiles.SaveToIniFile;
var
  IniFile   : TIniFile;
  n         : integer;
  DividerPos: integer;
begin
if Menu <> nil then
  begin
  {if this property is blank we use the default}
  if IniFileName = '' then
    begin
    IniFileName:=ChangeFileExt(ExtractFileName(Application.ExeName),'.INI')
    end;
  IniFile:=TIniFile.Create(IniFileName);
  IniFile.EraseSection('FileHistory');
  IniFile.WriteInteger('FileHistory','MaxFiles',MaxFiles);
  if (Menu <> nil) and (DividerPlace <> -1) then
    begin
    DividerPos:=DividerPlace;
    n:=DividerPos+1;
    while n < Menu.Count do
      begin
      IniFile.WriteString('FileHistory','File'+Chr(n+Ord('1')-1-DividerPos),Copy(Menu.Items[n].Caption,4,high(string)));
      inc(n);
      end;
    IniFile.Free;
    end;
  end;
end;

procedure TRecentFiles.LoadFromIniFile;
var
  IniFile: TIniFile;
  n      : integer;
  Name   : string;
begin
if Menu <> nil then
  begin
  if IniFileName = '' then
    begin
    IniFileName:=ChangeFileExt(ExtractFileName(Application.ExeName),'.INI')
    end;
  IniFile:=TIniFile.Create(IniFileName);
  MaxFiles:=0;
  MaxFiles:=IniFile.ReadInteger('FileHistory','MaxFiles',MaxFiles);
  n:=1;
  while true do
    begin
    Name:=IniFile.ReadString('FileHistory','File'+Chr(n+Ord('1')-1),'');
    if Name = '' then
      begin
      Break;
      end;
    LatestFile:=Name;
    inc(n);
    end;
  end;
end;

constructor TRecentFiles.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FMaxFiles:=0;
FMenu:=nil;
Divider:=TMenuItem.Create(Self);
Divider.Caption:='-';
end;

procedure TRecentFiles.MenuOnClick(Sender: TObject);
var
  Name: string;
begin
  begin
  Name:=Copy(TMenuItem(Sender).Caption,4,high(string));
  Click(Name);
  end;
end;

end.